﻿Imports DAO
Imports DTO
Public Class BackUpBUS
    Dim bak As New BacKupDAO


    Public Function data()
        Dim dt As New DataProvider()
        Return dt
    End Function

    Public Function backup(ByVal dialog As String)
        Dim dt As New DataProvider()
        dt.Backup(dialog)
        Return dt
    End Function
    Public Function Restore(ByVal dialog As String)
        Dim dt As New DataProvider()
        dt.restore(dialog)
        Return dt
    End Function
End Class
